Option Explicit
Sub A_Sample006()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myLngR As Long
    Dim myLngC As Long
    myLngR = 5					'C
    myLngC = 3					'沾
    Set myRng1 = Range("A1:C5")			'Nxsd
    ǳƨ즹
    Set myRng2 = myRng1.Offset(RowOffset:=myLngR, ColumnOffset:=myLngC)
    MsgBox myRng2.Address
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
